home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Questions & Answers / Q&A Programming Music / Chord notation with alt tunings next >
Lisp/Scheme  |  1998-10-26  |  1KB  |  56 lines
  1. CHORD NOTATION WITH ALTERNATIVE TUNINGS
  2.  
  3. >Is it possible to use chord notation with any of the alternative tunings.  If
  4. >so, how?
  5.  
  6. Tunings are realized sending pitch bend prior note, and will affect
  7. each note in a chord.
  8.  
  9. To play tuned chords make several instruments, allocate each to a different
  10. channel and let them all have same length values but different symbols.
  11.  
  12. Use symbol-separate to extract melody lines from chordal progression.
  13.  
  14. (symbol-separate '(abc a bc =))
  15. --> ((a a = =) (b = b =) (c = c =))
  16.  
  17. Use nth to select a sublist.
  18.  
  19. Example
  20.  
  21. (def-orchestra 'orchestra
  22.    tuned-chords (voice1 voice2 voice3)
  23. )
  24.  
  25. (create-tonality 21-any 
  26.     '(1/1 33/32 13/12 9/8 55/48 7/6 39/32 5/4 21/16 65/48 11/8 35/24 143/96 
  27.       3/2 77/48 13/8 5/3 7/4 11/6 15/8 91/48))
  28.  
  29. (setq chordal-melody '(abc a bc ac))
  30.  
  31. (def-section sect-a
  32.    tuned-chords            ; all voices will have these values
  33.       zone '(4/1)
  34.       tonality (activate-tonality (21-any  c 5 4096))
  35.       length '(1/16)
  36.       velocity '(64)
  37.       program '(1)
  38.    voice1                 ; but each voice use unique channel and symbol
  39.       channel 1
  40.       symbol (nth 0 (symbol-separate chordal-melody))
  41.    voice2
  42.       channel 2
  43.       symbol (nth 1 (symbol-separate chordal-melody))
  44.    voice3
  45.       channel 3
  46.       symbol (nth 2 (symbol-separate chordal-melody))
  47. )
  48.  
  49. (midiport :printer)
  50.  
  51. (def-tempo 60)
  52.  
  53. (play-file-p "my song"
  54.    tuned-chords '(sect-a)
  55. )
  56.